home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / comm / mail / Eucalyptus.lha / Eucalyptus / Rexx / yam2euc.euc < prev   
Encoding:
Text File  |  1998-04-28  |  2.1 KB  |  66 lines
  1. /* YAM->Eucalyptus Address book conversion script v1.1
  2. // by Deryk Robosson
  3. // newlook@ameritech.net
  4. // http://linux.tc3net.com
  5. //
  6. // v1.0 (24.10.97) Initial Creation
  7. // v1.1 (25.10.97) (Gandalf) Corrected problem
  8. //                 where the script would not add
  9. //                 items with spaces in them.
  10. */
  11. options results
  12.  
  13. yam_book = 'yam:.addressbook'
  14.  
  15. if ~show(ports,'EUCALYPTUS') then do
  16.   say 'Eucalyptus must be running prior to running this script.'
  17.   exit
  18. end
  19.  
  20. if exists(yam_book) then do
  21.   if open(file,yam_book,'R') then do
  22.     do until eof(file)
  23.       line=readln(file)
  24.       select
  25.         when pos('@USER',line) ~= 0 then do
  26.           parse var line blah' 'name
  27.           address = readln(file)
  28.           realname = readln(file)
  29.           if realname == '' then realname = name
  30.           comment = readln(file)
  31.           line = readln(file)
  32.           address EUCALYPTUS 'NewAddress "'realname'" "'address'" COMMENTS "'comment'"'
  33.         end
  34.         when pos('@GROUP',line) ~= 0 then do
  35.           parse var line cmd' 'gp
  36.           address EUCALYPTUS 'NewAddress "'gp'" "" GROUP'
  37.           line=readln(file) /* get group comment */
  38.           address EUCALYPTUS 'EditAddress "'gp'" COMMENT "'line'"'
  39.           line=readln(file) /* get first group item */
  40.           do while (pos('@ENDGROUP',line) == 0)
  41.             if pos('@USER',line) ~= 0 then do
  42.               parse var line blah' 'name
  43.               address = readln(file)
  44.               realname = readln(file)
  45.               if realname == '' then realname = name
  46.               comment = readln(file)
  47.               line = readln(file)
  48.               address EUCALYPTUS 'NewAddress "'realname'" "'address'" COMMENTS "'comment'" MEMBER "'gp'"'
  49.             end
  50.             line=readln(file)
  51.           end
  52.           line=readln(file)
  53.         end
  54.         otherwise nop
  55.       end
  56.     end
  57.   end
  58. end
  59. else do
  60.   say 'Error locating 'yam_book'.'
  61.   say 'Please check to see if 'yam_book' is a valid'
  62.   say 'path and filename. If it is not, please edit'
  63.   say 'the yam_book variable to point to the correct'
  64.   say 'path and filename of the YAM address book.'
  65. end
  66.